home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / A / almanac 1.5 .cpt / Almanac v 1.5 / background_2765.txt < prev    next >
Text File  |  1989-01-02  |  9KB  |  443 lines
  1. -- background: 2765 from stack: in.5
  2. -- bmap block id: 4019
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: almanac
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global force
  9.   ST
  10.   UT
  11.   set numberFormat to "0.###"
  12.   put "Julian Date = " & the seconds/86400 + 2416480.5 + DSTcheck()/24 into field "JD"
  13.   if the number of this card is 7 then
  14.     put getJDdate() &&"(JT)" into field "date"
  15.   else
  16.     put getDate() into field "date"
  17.   end if
  18.   if the shiftKey is up then
  19.     put the short name of this card into field 7
  20.     if the number of this card >1 and number of this card<10 then
  21.       calc (the number of words of field 3),force
  22.     end if
  23.   end if
  24. end openCard
  25.  
  26. on effect
  27.   visual wipe up very fast
  28. end effect
  29.  
  30. on openBackground
  31.   global val
  32.   set hilite of bkgnd button "DST" to val
  33. end openBackground
  34.  
  35.  
  36.  
  37. -- part 1 (button)
  38. -- low flags: 00
  39. -- high flags: 8006
  40. -- rect: left=42 top=140 right=162 bottom=86
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: DST
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   set hilite of me to not hilite of me
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 4 (button)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=432 top=50 right=92 bottom=471
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 20098 / 20098
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Home
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   visual effect dissolve
  71.   go home
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 5 (button)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=432 top=91 right=129 bottom=471
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 16732 / 16732
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: 
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   visual effect wipe left fast
  91.   push card
  92.   go card "fx"
  93. end mouseUp
  94.  
  95.  
  96.  
  97.  
  98. -- part 6 (field)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=190 top=283 right=301 bottom=350
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: UT
  110.  
  111.  
  112. -- part 7 (field)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=38 top=283 right=301 bottom=186
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: ST
  124.  
  125.  
  126. -- part 8 (field)
  127. -- low flags: 80
  128. -- high flags: 4001
  129. -- rect: left=0 top=174 right=239 bottom=512
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 0
  133. -- font id: 20
  134. -- text size: 10
  135. -- style flags: 0
  136. -- line height: 13
  137. -- part name: RA Cheb
  138.  
  139.  
  140. -- part 9 (field)
  141. -- low flags: 80
  142. -- high flags: 4001
  143. -- rect: left=0 top=266 right=333 bottom=511
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 20
  148. -- text size: 10
  149. -- style flags: 0
  150. -- line height: 13
  151. -- part name: dec Cheb
  152.  
  153.  
  154. -- part 10 (field)
  155. -- low flags: 00
  156. -- high flags: 0000
  157. -- rect: left=181 top=80 right=146 bottom=352
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 0
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Mars RA
  166.  
  167.  
  168. -- part 13 (field)
  169. -- low flags: 00
  170. -- high flags: 0000
  171. -- rect: left=181 top=149 right=183 bottom=365
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: 
  180.  
  181.  
  182. -- part 14 (field)
  183. -- low flags: 00
  184. -- high flags: 0000
  185. -- rect: left=44 top=87 right=112 bottom=173
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 0
  189. -- font id: 75
  190. -- text size: 18
  191. -- style flags: 0
  192. -- line height: 24
  193. -- part name: 
  194.  
  195.  
  196. -- part 17 (button)
  197. -- low flags: 00
  198. -- high flags: 0000
  199. -- rect: left=398 top=50 right=83 bottom=433
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 100 / 100
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Sun
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   effect
  211.   go card "Sun"
  212. end mouseUp
  213.  
  214.  
  215.  
  216.  
  217. -- part 18 (button)
  218. -- low flags: 00
  219. -- high flags: 0000
  220. -- rect: left=398 top=82 right=115 bottom=433
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 101 / 101
  223. -- text alignment: 1
  224. -- font id: 0
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: 
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   effect
  232.   go card "Mercury"
  233. end mouseUp
  234.  
  235.  
  236.  
  237.  
  238. -- part 19 (button)
  239. -- low flags: 00
  240. -- high flags: 0000
  241. -- rect: left=398 top=114 right=147 bottom=433
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 102 / 102
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: 
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   effect
  253.   go card "Venus"
  254. end mouseUp
  255.  
  256.  
  257.  
  258.  
  259. -- part 20 (button)
  260. -- low flags: 00
  261. -- high flags: 0000
  262. -- rect: left=398 top=146 right=179 bottom=433
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 104 / 104
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: 
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   effect
  274.   go card "Mars"
  275. end mouseUp
  276.  
  277.  
  278.  
  279.  
  280. -- part 21 (button)
  281. -- low flags: 00
  282. -- high flags: 0000
  283. -- rect: left=398 top=178 right=211 bottom=433
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 105 / 105
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: 
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   effect
  295.   go card "Jupiter"
  296. end mouseUp
  297.  
  298.  
  299.  
  300.  
  301. -- part 22 (button)
  302. -- low flags: 00
  303. -- high flags: 0000
  304. -- rect: left=398 top=210 right=243 bottom=433
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 106 / 106
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: 
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   effect
  316.   go card "Saturn"
  317. end mouseUp
  318.  
  319.  
  320.  
  321.  
  322. -- part 23 (button)
  323. -- low flags: 00
  324. -- high flags: 0000
  325. -- rect: left=401 top=242 right=274 bottom=433
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 107 / 107
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: 
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   effect
  337.   go card "Uranus"
  338. end mouseUp
  339.  
  340.  
  341.  
  342.  
  343. -- part 24 (button)
  344. -- low flags: 00
  345. -- high flags: 0000
  346. -- rect: left=398 top=274 right=304 bottom=433
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 108 / 108
  349. -- text alignment: 1
  350. -- font id: 0
  351. -- text size: 12
  352. -- style flags: 0
  353. -- line height: 16
  354. -- part name: 
  355. ----- HyperTalk script -----
  356. on mouseUp
  357.   effect
  358.   go card "Neptune"
  359. end mouseUp
  360.  
  361.  
  362.  
  363.  
  364. -- part 27 (button)
  365. -- low flags: 00
  366. -- high flags: 0004
  367. -- rect: left=231 top=306 right=340 bottom=275
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 5472 / 5472
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: New Button
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.   go first card
  379. end mouseUp
  380.  
  381.  
  382.  
  383. -- part 28 (field)
  384. -- low flags: 00
  385. -- high flags: 0000
  386. -- rect: left=62 top=25 right=43 bottom=228
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 0
  390. -- font id: 21
  391. -- text size: 12
  392. -- style flags: 256
  393. -- line height: 16
  394. -- part name: Date
  395.  
  396.  
  397. -- part 31 (field)
  398. -- low flags: 00
  399. -- high flags: 0000
  400. -- rect: left=266 top=25 right=44 bottom=467
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 0
  404. -- font id: 21
  405. -- text size: 12
  406. -- style flags: 256
  407. -- line height: 16
  408. -- part name: JD
  409.  
  410.  
  411. -- part 36 (button)
  412. -- low flags: 00
  413. -- high flags: 0002
  414. -- rect: left=475 top=50 right=80 bottom=508
  415. -- title width / last selected line: 0
  416. -- icon id / first selected line: 2478 / 2478
  417. -- text alignment: 1
  418. -- font id: 0
  419. -- text size: 12
  420. -- style flags: 0
  421. -- line height: 16
  422. -- part name: 
  423. ----- HyperTalk script -----
  424. on mouseUp
  425.   push card
  426.   go first card of bkgnd "Info"
  427. end mouseUp
  428.  
  429.  
  430.  
  431. -- part 37 (field)
  432. -- low flags: 80
  433. -- high flags: 0000
  434. -- rect: left=303 top=53 right=79 bottom=356
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 0
  438. -- font id: 14
  439. -- text size: 18
  440. -- style flags: 0
  441. -- line height: 24
  442. -- part name: Rem
  443.